home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #6 / Amiga Plus CD - 1996 - No. 06.iso / pd / daten / abook / arexx / donetcallmd.abx < prev    next >
Text File  |  1995-09-13  |  1KB  |  45 lines
  1. /*
  2. **  $VER: donetcallmd.rexx 01.10 (01.05.95) © Aris Basic
  3. **
  4. **
  5. **  PROGRAMNAME:
  6. **      donetcallmd.rexx
  7. **
  8. **  FUNCTION:
  9. **
  10. **      Tell MicroDot that it should make NetCall
  11. **
  12. **      This macro needs MicroDot 1.10 by © Oliver Wagner
  13. **      Its possible that also works with older MD BUT i`m not sure.
  14. **
  15. **      This macro was made for Address-Book by © Jörg Krause.
  16. **
  17. **  $HISTORY:
  18. **
  19. **   12.01.95 : 01.00 : initial release
  20. **   01.05.95 : 01.10 : changed to ABook 0.40 Style REQUESTER Call and some small
  21. **                      changes for security and possibility of using without ABook
  22. **                      or ABook Server
  23. **
  24. **
  25. */
  26.  
  27. OPTIONS RESULTS
  28. IF ~Show('P','MICRODOT') THEN DO
  29.                                 IF Show('P','ADDRESS_BOOK.1') THEN ADDRESS 'ADDRESS_BOOK.1'
  30.                                                               ELSE IF Show('P','ABOOK_SERVER') THEN ADDRESS 'ABOOK_SERVER'
  31.                                                                                                 ELSE Call noab()
  32.                                 'REQUESTRESPONSE PROMPT="MicroDot ist nicht gestartet!" TITLE="FEHLER"'
  33.                                 EXIT 10
  34.                                 noab:
  35.                                 Say "MicroDot ist nicht gestartet"
  36.                                 EXIT 10
  37. END
  38. ADDRESS 'MICRODOT'
  39. 'NOREQUEST'
  40. 'NETCALL'
  41. 'NOREQUEST OFF'
  42. EXIT 0
  43.  
  44.                              
  45.